home *** CD-ROM | disk | FTP | other *** search
/ Top 200 Programs / Top 200 Programs.iso / Bob8 / THOMPSON / LIBERTY / PRODUCT / TUTORIAL.EXE / WK4PROG3.BAS < prev    next >
BASIC Source File  |  1996-02-28  |  528b  |  25 lines
  1.  
  2.     'WK4PROG3.BAS
  3.     'open a window with a button
  4.     'the window is sized at 399 by 100 at position 200, 150
  5.     WindowWidth = 300
  6.     WindowHeight = 100
  7.     UpperLeftX = 200
  8.     UpperLeftY = 150
  9.     button #myFirst.ok, "OK!", [okClicked], UL, 15, 15
  10.     open "myname's first window!" for window as #myFirst
  11.  
  12.     'now stop and wait
  13.     input aVar$
  14.     goto [quit]
  15.  
  16. [okClicked]  'the OK! button was clicked
  17.  
  18.     notice "You clicked on OK!"
  19.  
  20. [quit]
  21.     'now close the window
  22.     close #myFirst
  23.  
  24.     end
  25.